home *** CD-ROM | disk | FTP | other *** search
/ Amiga Collections: Taifun / Taifun 099 (1989-05-15)(Ossowski, Stefan)(DE)(PD).zip / Taifun 099 (1989-05-15)(Ossowski, Stefan)(DE)(PD).adf / PCQ / Runtime / writechar.asm < prev    next >
Assembly Source File  |  1989-03-31  |  449b  |  31 lines
  1.  
  2. *    WriteChar.asm (of PCQ Pascal runtime library)
  3. *    Copyright (c) 1989 Patrick Quaid
  4.  
  5. *    This routine writes a single character to a text file
  6.  
  7.     SECTION    ONE
  8.  
  9.     XREF    _p%DOSBase
  10.     XREF    _LVOWrite
  11.     XREF    outbuffer
  12.     XREF    _p%padout
  13.  
  14.     XDEF    _p%writechar
  15. _p%writechar:
  16.  
  17.     move.b    d0,outbuffer
  18.     move.l    #outbuffer,d2
  19.     move.l    6(sp),d1
  20.     move.w    4(sp),d0
  21.     ext.l    d0
  22.     subq.l    #1,d0
  23.     ble.s    1$
  24.     jsr    _p%padout
  25. 1$    moveq    #1,d3
  26.     move.l    _p%DOSBase,a6
  27.     jsr    _LVOWrite(a6)
  28.     rts
  29.  
  30.     END
  31.